home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Tools 2
/
Amiga Tools 2.iso
/
dfue
/
avmnfax
/
source
/
handledata.avmsrc
< prev
next >
Wrap
Text File
|
1995-03-09
|
3KB
|
207 lines
startrecord=true
label=
nodetype=7
filename=avm:rexx/stdhead.avm
nextactiontype=3
nextactionaction=
endrecord=true
startrecord=true
label=
nodetype=8
line1=parse arg servername mailbox .
line2=if symbol('mailbox') ~= 'VAR' | mailbox = '' then mailbox = 'manual'
line3=
line4=
line5=
line6=
line7=
line8=
line9=
line10=
nextactiontype=3
nextactionaction=
endrecord=true
startrecord=true
label=
nodetype=8
line1='turnoffvoicemode'
line2=
line3=
line4=
line5=
line6=
line7=
line8=
line9=
line10=
nextactiontype=3
nextactionaction=
endrecord=true
startrecord=true
label=
nodetype=6
mode=0
nextactiontype=3
nextactionaction=
endrecord=true
startrecord=true
label=
nodetype=9
baud=4
bits=1
parity=0
stopbits=0
handshaking=1
erroractiontype=0
erroractionaction=stderror
nextactiontype=3
nextactionaction=
endrecord=true
startrecord=true
label=
nodetype=11
line1=ATA
timeout=90
swallowecho=0
timedoutactiontype=0
timedoutactionaction=answerdataabort
abortactiontype=0
abortactionaction=answerdataabort
erroractiontype=0
erroractionaction=stderror
nextactiontype=3
nextactionaction=
endrecord=true
startrecord=true
label=
nodetype=10
timeout=90
valueactiontype=3
valueactionaction=
timedoutactiontype=0
timedoutactionaction=answerdataabort
abortactiontype=0
abortactionaction=answerdataabort
erroractiontype=0
erroractionaction=stderror
nextactiontype=3
nextactionaction=
endrecord=true
startrecord=true
label=
nodetype=8
line1=if (left(value, 7) = 'CONNECT') then do
line2= call showDebugger('Connected in DATA mode.'); call time('r')
line3= address rexx 'startbbs' value
line4= call showLog('BBS done.', 1, trunc(time('e')))
line5=end; else do
line6= call showDebugger('Failed to connect in DATA mode.')
line7= call showLog('BBS attempted.', 0, 0)
line8=end
line9=
line10=
nextactiontype=3
nextactionaction=
endrecord=true
startrecord=true
label=finished
nodetype=8
line1=do 5
line2=
line3=
line4=
line5=
line6=
line7=
line8=
line9=
line10=
nextactiontype=3
nextactionaction=
endrecord=true
startrecord=true
label=
nodetype=10
timeout=2
valueactiontype=3
valueactionaction=
timedoutactiontype=0
timedoutactionaction=answerabortreadall
abortactiontype=0
abortactionaction=stdabort
erroractiontype=0
erroractionaction=stderror
nextactiontype=3
nextactionaction=
endrecord=true
startrecord=true
label=
nodetype=8
line1=end
line2=
line3=
line4=
line5=
line6=
line7=
line8=
line9=
line10=
nextactiontype=3
nextactionaction=
endrecord=true
startrecord=true
label=answerabortreadall
nodetype=8
line1=
line2=
line3=
line4=
line5=
line6=
line7=
line8=
line9=
line10=
nextactiontype=2
nextactionaction=exit
endrecord=true
startrecord=true
label=answerdataabort
nodetype=11
line1=A
timeout=10
swallowecho=1
timedoutactiontype=0
timedoutactionaction=stdtimedout
abortactiontype=0
abortactionaction=stdabort
erroractiontype=0
erroractionaction=stderror
nextactiontype=0
nextactionaction=finished
endrecord=true
startrecord=true
label=showLog
nodetype=8
line1=procedure expose mailbox
line2=parse arg mycomment, gotData, actualLength
line3=handle = makeUniqueFile()
line4=call initLogEntry()
line5=log.comment = mycomment; log.length = actualLength
line6=if gotData = 1 then log.type = 'BBS'; else log.type = 'Try_BBS'
line7=call saveLogEntry(mailbox, handle)
line8=
line9=
line10=
nextactiontype=2
nextactionaction=return
endrecord=true
startrecord=true
label=
nodetype=7
filename=avm:rexx/simplestdtail.avm
nextactiontype=3
nextactionaction=
endrecord=true